home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 88
/
64er_Magazin_Sonderheft_88_19xx_Markt__Technik_de_Side_B.d64
/
plotter demo 2
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
1KB
|
63 lines
1 ifa=0thena=1:load"plotter",8,1
5 print"[147]
10 [158]20480
15 [153]"beispiel fuer einen funktionsplotter mit exakter cm-einteilung
16 gosub1000:print"plotten funktion 1 oder 2 ?
17 [161]fr$:[139]fr$[179]"1"[176]fr$[177]"2"[167]17
18 fr[178][197](fr$)
20 [159]12,12
30 [152]12,"e1
40 print#12,"k1
50 [152]12,"m0,100
60 print#12,"d201,100
70 [152]12,"u1
80 print#12,"i-5,-5
90 [152]12,"i-5,5
100 print#12,"u0
110 [152]12,"m101,200
120 print#12,"d101,0
130 [152]12,"u1
140 print#12,"i5,5
150 [152]12,"i-5,5
160 print#12,"u0
170 [129]i[178][171]9[164]9:[139]i[178]0[167]220
180 [152]12,"m99,"100[171]10[172]i
190 [152]12,"i4,0
200 print#12,"r1,-1
210 [152]12,"p"i
220 [130]
270 [129]i[178][171]9[164]9:[139]i[178]0[167]320
280 [152]12,"m"101[170]i[172]10",98
290 print#12,"i0,4
300 [152]12,"r-3,2
310 print#12,"p"i
320 next
330 print#12,"s1
340 [152]12,"m101,100
350 print#12,"n6
360 [152]12,"m111,5
370 print#12,"py
380 [152]12,"m190,90
390 print#12,"px
410 [152]12,"s0
430 forx=-9to9step.5
435 onfrgoto440,443
440 y=(x*x/4.5)-9:goto450
443 y=(sin(x/2)*6+cos((x-3)/6)-x)/1.5
450 iffg=.thenfg=1:print#12,"."x*10+101","100-y*10:goto460
455 print#12,"d"x*10+101","100-y*10
460 print#12,"n5
470 [130]
480 [152]12,"m0,190
490 print#12,"z1
500 [152]12,"s1
505 onfrgoto510,513
510 print#12,"py=(x*x/4.5)-9":goto520
513 print#12,"py=(sin(x/2)*6+cos((x-3)/6)-x)/1.5
520 [152]12,"o
900 end
1000 print"achtung: bei der epson-version des
1001 [153]"plotter-siumlators wird der rechte teil
1002 print"des bildes abgeschnitten! warum, steht
1003 [153]"in der bedienungsanleitung.":[142]